uses vector,stl_base, stlmain,Stl_types;
{$IFDEF WIN32}
{$APPTYE CONSOLE}
{$ENDIF}
var
  a:Tvector;
  i:longint;
  procedure objDump(var b: Tvector);
  begin
    writeln('SIZE = ', b.size);
    if (b = nil) then
      writeln('Not Created');
    if (b.Empty) then
      writeln('Empty');
    
  end;
  procedure _Inser 
begin       
	a := T
	Writeln('Testing Started');             
end.
